function fig_paper_0(delta_grid, dWdd_app0, dWdd_app0_dep, dWdd_app0_tax, MB_app0, MC_app0, q_F, q_FF_1, W_app0, optfig)

if optfig.plotfig == 1
    
    [fontname,dimension,lw,folder,color,style,marker,markersize,fontsize_tit,fontsize_ax,fontsize_lab,fontsize_leg] = fn_optfig(optfig);
    
    f0 = figure('Units','inches','Position',[0 0 20 10]);
    
    subplot(2,3,1)
    plot(delta_grid,dWdd_app0,'Color',color{1},'LineStyle',style{1},'LineWidth',lw); hold on;
    %     plot(delta_grid,dWdd_num,'Color',color{5},'LineStyle',style{2},'LineWidth',lw);
    title('Welfare Change',   'interpreter','latex','FontSize',fontsize_tit,'FontName',fontname)
    xlabel('Deposit Insurance ($\delta$)','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    grid; axis tight; box off;
    ax = gca; ax.YAxis.Exponent = 0;
    legendCell = {'$\frac{dW}{d\delta}$'};
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend boxoff
    ylim([-0.0001 0.001])
    xlim([0,max(delta_grid)])
    
    subplot(2,3,2)
    plot(delta_grid,dWdd_app0_dep,'Color',color{1},'LineStyle',style{1},'LineWidth',lw); hold on;
    title('Welfare Change Depositors','interpreter','latex','FontSize',fontsize_tit,'FontName',fontname)
    xlabel('Deposit Insurance ($\delta$)','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    %     ylabel('$\int_{i\in I}\frac{dV_{m}\left(i,\delta,R_{1}\right)}{d\delta}dG\left(i\right)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    grid; axis tight; box off;
    ax = gca; ax.YAxis.Exponent = 0;
    legendCell = {'$\int_{i\in I}\frac{dV_{m}\left(i,\delta,R_{1}\right)}{d\delta}dG\left(i\right)$'};
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend boxoff
    ylim([0 0.05])
    xlim([0,max(delta_grid)])
    
    subplot(2,3,3)
    plot(delta_grid,dWdd_app0_tax,'Color',color{1},'LineStyle',style{1},'LineWidth',lw); hold on;
    title('Welfare Change Taxpayers',   'interpreter','latex','FontSize',fontsize_tit,'FontName',fontname)
    xlabel('Deposit Insurance ($\delta$)','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    grid; axis tight; box off;
    ax = gca; ax.YAxis.Exponent = 0;
    legendCell = {'$\frac{dV_{m}\left(\tau,\delta,R_{1}\right)}{d\delta}$'};
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend boxoff
    xlim([0,max(delta_grid)])
    
    subplot(2,3,4)
    plot(delta_grid,q_F,'Color',color{1},'LineStyle',style{1},'LineWidth',lw); hold on;
    plot(delta_grid,q_FF_1*ones(size(q_F)),'Color',color{5},'LineStyle',style{2},'LineWidth',lw); hold on;
    title('Failure Probability',   'interpreter','latex','FontSize',fontsize_tit,'FontName',fontname)
    xlabel('Deposit Insurance ($\delta$)','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    grid; axis tight; box off;
    ax = gca; ax.YAxis.Exponent = 0;
    legendCell = {'Failure Probability $q_F$','Fundamental Failure Probability'};
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend boxoff
    xlim([0,max(delta_grid)])
    ylim([0,max(q_F)])
    
    subplot(2,3,5)
    plot(delta_grid,MB_app0,'Color',color{1},'LineStyle',style{1},'LineWidth',lw); hold on;
    title('Marginal Benefit','interpreter','latex','FontSize',fontsize_tit,'FontName',fontname)
    xlabel('Deposit Insurance ($\delta$)','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    grid; axis tight; box off;
    ax = gca; ax.YAxis.Exponent = 0;
    legendCell = {'$-\frac{\partial q^{F}}{\partial\delta}\int\left(C^{N}\left(j,s^{*}\right)-C^{F}\left(j,s^{*}\right)\right)dj$'};
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend boxoff
    xlim([0,max(delta_grid)])
    ylim([0,max(MB_app0)])
    
    subplot(2,3,6)
    plot(delta_grid,MC_app0,'Color',color{1},'LineStyle',style{1},'LineWidth',lw); hold on;
    title('Marginal Cost',   'interpreter','latex','FontSize',fontsize_tit,'FontName',fontname)
    xlabel('Deposit Insurance ($\delta$)','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    grid; axis tight; box off;
    ax = gca; ax.YAxis.Exponent = 0;
    legendCell = {'$q^{F}{E}_{s}^{F}\left[\int\frac{\partial C^{F}\left(j,s\right)}{\partial\delta}dj\right]$'};
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend boxoff
    xlim([0,max(delta_grid)])
    
    f1 = figure('Units','inches','Position',dimension);
    
    plot(delta_grid,W_app0,'Color',color{1},'LineStyle',style{1},'LineWidth',lw); hold on;
    title('Welfare',   'interpreter','latex','FontSize',fontsize_tit,'FontName',fontname)
    xlabel('Deposit Insurance ($\delta$)','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname)
    grid; axis tight; box off;
    ax = gca; ax.YAxis.Exponent = 0;
    legendCell = {'$W(\delta)$'};
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend boxoff
    xlim([0,max(delta_grid)])
    ylim([0.0142,max(W_app0)])
    
    name = 'paper_main';
    print(f0,'-depsc','-painters','-noui','-r600',[folder,name,'.eps'])
    name = 'welfare_main';
    print(f1,'-depsc','-painters','-noui','-r600',[folder,name,'.eps'])
    
    if optfig.close == 1; close(who('f')); end
    
end
